home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / DELPHI / DC95V10.ZIP / APPBAR1.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-10-19  |  3.1 KB  |  133 lines
  1. unit AppBar1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   DComm95, StdCtrls, Buttons, Spin, ExtCtrls, Menus;
  8.  
  9. type
  10.   TForm2 = class(TForm)
  11.     BitBtn1: TBitBtn;
  12.     BitBtn2: TBitBtn;
  13.     BitBtn3: TBitBtn;
  14.     BitBtn4: TBitBtn;
  15.     BitBtn5: TBitBtn;
  16.     BitBtn6: TBitBtn;
  17.     SpinEdit1: TSpinEdit;
  18.     SpinEdit2: TSpinEdit;
  19.     Label1: TLabel;
  20.     Label2: TLabel;
  21.     SpeedButton1: TSpeedButton;
  22.     SpeedButton2: TSpeedButton;
  23.     Label3: TLabel;
  24.     SpinEdit3: TSpinEdit;
  25.     Panel1: TPanel;
  26.     PopupMenu1: TPopupMenu;
  27.     Test11: TMenuItem;
  28.     Test21: TMenuItem;
  29.     Test31: TMenuItem;
  30.     Branch1: TMenuItem;
  31.     SubMenuTest11: TMenuItem;
  32.     Exit1: TMenuItem;
  33.     DCAppBar1: TDCAppBar;
  34.     procedure BitBtn1Click(Sender: TObject);
  35.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  36.     procedure FormCreate(Sender: TObject);
  37.     procedure BitBtn2Click(Sender: TObject);
  38.     procedure BitBtn3Click(Sender: TObject);
  39.     procedure BitBtn4Click(Sender: TObject);
  40.     procedure BitBtn5Click(Sender: TObject);
  41.     procedure BitBtn6Click(Sender: TObject);
  42.     procedure SpinEdit1Change(Sender: TObject);
  43.     procedure SpinEdit2Change(Sender: TObject);
  44.     procedure SpeedButton1Click(Sender: TObject);
  45.     procedure SpinEdit3Change(Sender: TObject);
  46.     procedure DCAppBar1RightClick(Sender: TObject);
  47.     procedure DCAppBar1RightDblClick(Sender: TObject);
  48.   private
  49.     { Private declarations }
  50.   public
  51.     { Public declarations }
  52.   end;
  53.  
  54. var
  55.   Form2: TForm2;
  56.  
  57. implementation
  58.  
  59. {$R *.DFM}
  60.  
  61. procedure TForm2.BitBtn1Click(Sender: TObject);
  62. begin
  63.   DCAppBar1.Active := True;
  64. end;
  65.  
  66. procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
  67. begin
  68.   DCAppBar1.Active := False;
  69. end;
  70.  
  71. procedure TForm2.FormCreate(Sender: TObject);
  72. begin
  73.   DCAppBar1.AddControl(SpeedButton1);
  74.   DCAppBar1.AddControl(SpeedButton2);
  75. end;
  76.  
  77. procedure TForm2.BitBtn2Click(Sender: TObject);
  78. begin
  79.   DCAppBar1.Active := False;
  80. end;
  81.  
  82. procedure TForm2.BitBtn3Click(Sender: TObject);
  83. begin
  84.   DCAppBar1.Orientation := aboLeft;
  85. end;
  86.  
  87. procedure TForm2.BitBtn4Click(Sender: TObject);
  88. begin
  89.   DCAppBar1.Orientation := aboTop;
  90. end;
  91.  
  92. procedure TForm2.BitBtn5Click(Sender: TObject);
  93. begin
  94.   DCAppBar1.Orientation := aboRight;
  95. end;
  96.  
  97. procedure TForm2.BitBtn6Click(Sender: TObject);
  98. begin
  99.   DCAppBar1.Orientation := aboBottom;
  100. end;
  101.  
  102. procedure TForm2.SpinEdit1Change(Sender: TObject);
  103. begin
  104.   DCAppBar1.BarWidth := SpinEdit1.Value;
  105. end;
  106.  
  107. procedure TForm2.SpinEdit2Change(Sender: TObject);
  108. begin
  109.   DCAppBar1.BarHeight := SpinEdit2.Value;
  110. end;
  111.  
  112. procedure TForm2.SpeedButton1Click(Sender: TObject);
  113. begin
  114.   Close;
  115. end;
  116.  
  117. procedure TForm2.SpinEdit3Change(Sender: TObject);
  118. begin
  119.   DCAppBar1.Spacing := SpinEdit3.Value;
  120. end;
  121.  
  122. procedure TForm2.DCAppBar1RightClick(Sender: TObject);
  123. begin
  124.   Panel1.Caption := 'Last event: Single right click';
  125. end;
  126.  
  127. procedure TForm2.DCAppBar1RightDblClick(Sender: TObject);
  128. begin
  129.   Panel1.Caption := 'Last event: Double right click';
  130. end;
  131.  
  132. end.
  133.